home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
pie_orvw.zip
/
PIE-WRIT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-22
|
11KB
|
752 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Boolean BOOLEAN010
Boolean BOOLEAN011
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer TINTEGER006(4)
Integer TINTEGER011(2)
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER019
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String TSTRING012(4)
String STRING013
String STRING014
String TSTRING015(5)
String STRING016
String STRING017
String STRING018
String STRING026
String STRING027
String TSTRING028(2)
String STRING029
String STRING030
String STRING036
String STRING039
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
Declare Function FUNCTION001(String STRING019, String STRING020, String STRING021, Integer INTEGER007, Integer INTEGER008, Integer INTEGER009, String STRING022, String STRING023, String STRING024, String STRING025, Integer INTEGER010) String
Declare Procedure PROC001(Integer INTEGER016, Integer INTEGER017, String STRING031, Integer INTEGER018, String STRING032, String STRING033, String STRING034, String STRING035)
Declare Procedure PROC002(Integer INTEGER020, String STRING037, Integer INTEGER021, Integer INTEGER022, String STRING038)
Declare Procedure PROC003(String STRING040, Integer INTEGER023, Integer INTEGER024, String STRING041, String STRING042, String STRING043, String STRING044, Integer INTEGER025)
;------------------------------------------------------------------------------
Print "@POFF@"
GetUser
BOOLEAN008 = U_Scroll
BOOLEAN011 = 0
BOOLEAN010 = 1
INTEGER005 = 5
INTEGER004 = 14
TSTRING012(1) = "Zmodem"
TSTRING012(2) = "Ymodem"
TSTRING012(3) = "Hs/link"
TSTRING012(4) = "None"
Gosub LABEL008
STRING013 = ""
DispFile PPEPath() + "PIEWRIT.PCB", 1
Gosub LABEL007
Gosub LABEL002
STRING014 = "CODED BY ORSON & VINCENT VEGA. ANSI BY RENEGADE, FOR PROViDENCE 1996 "
STRING014 = Replace(STRING014, " ", "·")
TINTEGER006(2) = Len(STRING014)
AnsiPos INTEGER004, INTEGER005
Color 15
Print "■"
:LABEL001
STRING018 = Inkey()
If (STRING018 == Chr(27)) Goto LABEL012
If (STRING018 == Chr(13)) Goto LABEL003
If (STRING018 == "DOWN") Then
If (INTEGER005 > 14) Goto LABEL009
If (INTEGER005 == 10) Then
AnsiPos 14, 10
Print " "
INTEGER004 = 4
Inc INTEGER005
Endif
AnsiPos INTEGER004, INTEGER005
Print " "
Inc INTEGER005
AnsiPos INTEGER004, INTEGER005
Color 15
Print "■"
Endif
If (STRING018 == "UP") Then
If (INTEGER005 == 5) Goto LABEL001
If (INTEGER005 == 12) Then
AnsiPos 4, 12
Print " "
INTEGER004 = 14
Dec INTEGER005
Endif
AnsiPos INTEGER004, INTEGER005
Print " "
Dec INTEGER005
AnsiPos INTEGER004, INTEGER005
Color 15
Print "■"
Endif
STRING017 = STRING014
STRING017 = Right(STRING017, Len(STRING017) - TINTEGER006(1))
STRING017 = Left(STRING017, Len(STRING017) - TINTEGER006(2) + 28)
STRING016 = Left(STRING014, 1)
STRING014 = Right(STRING014, Len(STRING014) - 1)
STRING014 = STRING014 + STRING016
TSTRING015(1) = Left(STRING017, 1)
STRING017 = Right(STRING017, Len(STRING017) - 1)
TSTRING015(2) = Left(STRING017, 1)
STRING017 = Right(STRING017, Len(STRING017) - 1)
TSTRING015(3) = Left(STRING017, Len(STRING017) - 2)
STRING017 = Right(STRING017, Len(STRING017) - Len(TSTRING015(3)))
TSTRING015(4) = Left(STRING017, 1)
STRING017 = Right(STRING017, Len(STRING017) - 1)
TSTRING015(5) = Left(STRING017, 1)
STRING017 = Right(STRING017, Len(STRING017) - 1)
AnsiPos 5, 20
Color 8
Print TSTRING015(1)
Color 7
Print TSTRING015(2)
Color 15
Print TSTRING015(3)
Color 7
Print TSTRING015(4)
Color 8
Print TSTRING015(5)
Delay 2
Goto LABEL001
:LABEL002
STRING008 = U_Pwd
If (Len(STRING008) > 17) STRING008 = Left(STRING008, 17)
STRING009 = U_City
If (Len(STRING009) > 17) STRING009 = Left(STRING009, 17)
STRING010 = U_HVPhone
If (Len(STRING010) > 17) STRING010 = Left(STRING010, 17)
STRING011 = U_BDPhone
If (Len(STRING011) > 17) STRING011 = Left(STRING011, 17)
INTEGER003 = U_PageLen
If (INTEGER003 > 100) INTEGER003 = 99
Return
:LABEL003
AnsiPos INTEGER004, INTEGER005
Color 8
Print "■"
BOOLEAN005 = 1
Select Case (INTEGER005)
Case 5
PROC002(28, "ENTER NEW PASSWORD", 5, 20, 15)
STRING008 = FUNCTION001("[", "]", " ", 17, 5, 17, 15, 8, Mask_Pwd(), STRING008, 4)
AnsiPos 17, 5
Color 7
STRING008 = Upper(STRING008)
Print Left(STRING008, 17)
U_Pwd = STRING008
Case 6
PROC002(28, "ENTER NEW LOCATION", 5, 20, 15)
STRING009 = FUNCTION001("[", "]", " ", 17, 6, 17, 15, 8, STRING013, STRING009, 3)
AnsiPos 17, 6
Color 7
Print Left(STRING009, 17)
U_City = STRING009
Case 7
PROC002(28, "ENTER NEW VOICE #", 5, 20, 15)
STRING010 = FUNCTION001("[", "]", " ", 17, 7, 17, 15, 8, "0987654321/-+\()[]{}*eliteuELITEUNA_ ", STRING010, 3)
AnsiPos 17, 7
Color 7
Print Left(STRING010, 17)
U_HVPhone = STRING010
Case 8
PROC002(28, "ENTER NEW MODEM #", 5, 20, 15)
STRING011 = FUNCTION001("[", "]", " ", 17, 8, 17, 15, 8, "0987654321/-+\()[]{}*eliteuELITEUNA_ ", STRING011, 3)
AnsiPos 17, 8
Color 7
Print Left(STRING011, 17)
U_BDPhone = STRING011
Case 9
If (U_Expert == 1) Then
AnsiPos 17, 9
Color 7
Print "NOPE"
U_Expert = 0
Else
Color 7
AnsiPos 17, 9
Print "YES "
U_Expert = 1
Endif
Case 10
STRING006 = U_Trans
Select Case (STRING006)
Case "Z"
U_Trans = "G"
STRING007 = "Ymodem "
Case "G"
U_Trans = "H"
STRING007 = "Hs/Link"
Case "H"
U_Trans = "N"
STRING007 = "None "
Case "N"
U_Trans = "Z"
STRING007 = "Zmodem "
Case Else
U_Trans = "Z"
STRING007 = "Zmodem"
End Select
AnsiPos 17, 10
Color 7
Print STRING007
Case 12
PROC002(28, "PAGELENGTH SETTING", 5, 20, 15)
INTEGER003 = FUNCTION001("[", "]", " ", 28, 12, 2, 15, 8, "0987654321", INTEGER003, 1)
AnsiPos 28, 12
Color 7
Print INTEGER003
U_PageLen = INTEGER003
Case 13
BOOLEAN007 = U_FSE
Select Case (BOOLEAN007)
Case 1
U_FSE = 0
AnsiPos 28, 13
Color 7
Print "N"
Case 0
U_FSE = 1
AnsiPos 28, 13
Color 7
Print "Y"
End Select
:LABEL004
Case 14
Select Case (BOOLEAN008)
Case 1
BOOLEAN008 = 0
AnsiPos 28, 14
Color 7
Print "N"
Case 0
BOOLEAN008 = 1
AnsiPos 28, 14
Color 7
Print "Y"
End Select
:LABEL005
U_Scroll = BOOLEAN008
Case 15
BOOLEAN006 = U_Cls
If (BOOLEAN006 == 1) Then
U_Cls = 0
AnsiPos 28, 15
Color 7
Print "N"
Goto LABEL006
Endif
Case 0
U_Cls = 1
AnsiPos 28, 15
Color 7
Print "Y"
End Select
:LABEL006
AnsiPos INTEGER004, INTEGER005
Color 15
Print "■"
Goto LABEL001
:LABEL007
Color 7
AnsiPos 17, 5
Print Left(U_Pwd, 17)
AnsiPos 17, 6
Print Left(U_City, 17)
AnsiPos 17, 7
Print Left(U_HVPhone, 17)
AnsiPos 17, 8
Print Left(U_BDPhone, 17)
AnsiPos 17, 9
If (U_Expert == 0) Then
Print "NOPE"
Else
Print "YES"
Endif
AnsiPos 17, 10
Print STRING007
AnsiPos 28, 12
Print U_PageLen
AnsiPos 28, 13
If (U_FSE == 1) Print "Y"
If (U_FSE == 0) Print "N"
AnsiPos 28, 14
If (BOOLEAN008 == 1) Print "Y"
If (BOOLEAN008 == 0) Print "N"
AnsiPos 28, 15
If (U_Cls == 1) Print "Y"
If (U_Cls == 0) Print "N"
Return
:LABEL008
Select Case (U_Trans)
Case "G"
STRING007 = TSTRING012(2)
Return
Case "Z"
STRING007 = TSTRING012(1)
Return
Case "H"
STRING007 = TSTRING012(3)
Return
Case Else
STRING007 = TSTRING012(4)
Return
End Select
:LABEL009
PROC002(28, "PRESS ENTER TO EXIT", 5, 20, 15)
If (BOOLEAN010 == 0) Goto LABEL011
:LABEL010
BOOLEAN010 = 1
STRING018 = Inkey()
Inc INTEGER002
Delay 1
If (STRING018 == Chr(27)) Goto LABEL012
If (STRING018 == Chr(13)) Goto LABEL012
If (STRING018 == "UP") Then
INTEGER005 = 15
AnsiPos 11, 17
Color 7
Print "EXIT BACK TO MAIN"
Goto LABEL001
Endif
PROC003("EXIT BACK TO MAIN", 11, 17, "@X08", "@X05", "@X0D", "@X0F", INTEGER002)
If (INTEGER002 > 23) Goto LABEL011
Goto LABEL010
:LABEL011
BOOLEAN010 = 0
STRING018 = Inkey()
Dec INTEGER002
Delay 1
If (STRING018 == Chr(27)) Goto LABEL012
If (STRING018 == Chr(13)) Goto LABEL012
If (STRING018 == "UP") Then
INTEGER005 = 15
AnsiPos 11, 17
Color 7
Print "EXIT BACK TO MAIN"
Goto LABEL001
Endif
PROC003("EXIT BACK TO MAIN", 11, 17, "@X08", "@X05", "@X0D", "@X0F", INTEGER002)
If (INTEGER002 < 1) Goto LABEL010
Goto LABEL011
:LABEL012
If (BOOLEAN005 == 0) Goto LABEL014
PROC002(28, "WANNA SAVE?", 5, 20, 15)
AnsiPos 5, 17
Print " "
AnsiPos 15, 17
Print "@X08[@X0FYES@X08][@X0FN@X07o@X08]"
STRING018 = Inkey()
BOOLEAN009 = 1
While (BOOLEAN011 == 0) Do
:LABEL013
STRING018 = Inkey()
If (STRING018 == Chr(13)) BOOLEAN011 = 1
If (Upper(STRING018) == "Y") Goto LABEL015
If (Upper(STRING018) == "N") Goto LABEL014
If (STRING018 == "RIGHT") Then
If (BOOLEAN009 == 0) Goto LABEL013
AnsiPos 15, 17
Print "@X08[@X0FY@X07es@X08][@X0FNO@X08]"
BOOLEAN009 = 0
Endif
If (STRING018 == "LEFT") Then
If (BOOLEAN009 == 1) Goto LABEL013
AnsiPos 15, 17
Print "@X08[@X0FYES@X08][@X0FN@X07o@X08]"
BOOLEAN009 = 1
Endif
EndWhile
If (BOOLEAN009 == 0) Goto LABEL014
Gosub LABEL015
:LABEL014
AnsiPos 48, 15
Print "@X07▄"
AnsiPos 69, 15
Print "@X07▄"
Delay 2
AnsiPos 48, 15
Print "@X0F▄"
AnsiPos 69, 15
Print "@X0F▄"
Delay 2
AnsiPos 48, 15
Print "@X07▄"
AnsiPos 69, 15
Print "@X07▄"
Delay 2
AnsiPos 48, 15
Print "@X0C▄"
AnsiPos 69, 15
Print "@X0C▄"
Cls
End
:LABEL015
PROC002(28, "SAVING!", 5, 20, 15)
PutUser
Return
End
;------------------------------------------------------------------------------
Function FUNCTION001(String STRING019, String STRING020, String STRING021, Integer INTEGER007, Integer INTEGER008, Integer INTEGER009, String STRING022, String STRING023, String STRING024, String STRING025, Integer INTEGER010) String
String STRING027
String TSTRING028(2)
String STRING029
String STRING030
Integer TINTEGER011(2)
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
INTEGER013 = INTEGER008
INTEGER012 = INTEGER007
STRING027 = TSTRING028(1) + TSTRING028(2)
STRING029 = STRING025
PROC001(INTEGER007, INTEGER008, STRING021, INTEGER009, STRING022, STRING023, STRING019, STRING020)
Color STRING023
AnsiPos INTEGER007, INTEGER008
TSTRING028(2) = STRING025
INTEGER012 = INTEGER007 + Len(TSTRING028(2))
AnsiPos INTEGER007, INTEGER008
Print STRING025
STRING027 = TSTRING028(1) + TSTRING028(2)
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
:LABEL016
STRING030 = Inkey()
If (STRING030 == "") Goto LABEL016
If (STRING030 == Chr(13)) Goto LABEL034
If (STRING030 == Chr(27)) Goto LABEL033
If (STRING030 == Chr(8)) Goto LABEL021
If (STRING030 == "LEFT") Goto LABEL024
If (STRING030 == "DOWN") Goto LABEL024
If (STRING030 == "RIGHT") Goto LABEL026
If (STRING030 == "UP") Goto LABEL026
If (STRING030 == "HOME") Goto LABEL028
If (STRING030 == "END") Goto LABEL029
If (STRING030 == "@") Goto LABEL016
If (STRING030 == "") Goto LABEL030
If (STRING030 == "DEL") Goto LABEL030
If (STRING030 == Chr(9)) Goto LABEL016
STRING030 = Left(STRING030, 1)
If (INTEGER012 > INTEGER007 + INTEGER009 - 1) Goto LABEL016
If (INTEGER014 > INTEGER009) Goto LABEL016
If (STRING030 == " ") Goto LABEL017
If (STRING024 == "") Goto LABEL017
INTEGER015 = InStr(STRING024, STRING030)
If (INTEGER015 == 0) Goto LABEL020
:LABEL017
If (TINTEGER011(1) == 1) Goto LABEL018
TSTRING028(2) = TSTRING028(2) + STRING030
AnsiPos INTEGER012, INTEGER013
Print STRING030
Goto LABEL019
:LABEL018
TSTRING028(1) = TSTRING028(1) + STRING030
AnsiPos INTEGER007, INTEGER013
Print TSTRING028(1) + TSTRING028(2)
AnsiPos INTEGER012 + 1, INTEGER013
:LABEL019
Inc INTEGER012
STRING027 = TSTRING028(1) + TSTRING028(2)
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
Goto LABEL016
:LABEL020
STRING030 = ""
INTEGER015 = 0
Goto LABEL016
:LABEL021
If (TINTEGER011(1) == 1) Goto LABEL022
If (INTEGER012 < INTEGER007 + 1) Goto LABEL016
TSTRING028(2) = Left(TSTRING028(2), Len(TSTRING028(2)) - 1)
Dec INTEGER012
AnsiPos INTEGER012, INTEGER013
Print STRING021
AnsiPos INTEGER012, INTEGER013
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
Goto LABEL023
:LABEL022
If (INTEGER012 < INTEGER007 + 1) Goto LABEL016
TSTRING028(1) = Left(TSTRING028(1), Len(TSTRING028(1)) - 1)
Dec INTEGER012
AnsiPos INTEGER007, INTEGER013
Print TSTRING028(1) + TSTRING028(2) + STRING021
AnsiPos INTEGER012, INTEGER013
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
:LABEL023
STRING027 = TSTRING028(1) + TSTRING028(2)
Goto LABEL016
:LABEL024
TINTEGER011(1) = 1
If (INTEGER012 < INTEGER007 + 1) Goto LABEL016
If (TINTEGER011(2) == 0) TSTRING028(1) = Left(TSTRING028(2), Len(TSTRING028(2)) - 1)
If (TINTEGER011(2) == 0) TSTRING028(2) = Right(TSTRING028(2), 1)
If (TINTEGER011(2) == 0) Goto LABEL025
TSTRING028(2) = Right(TSTRING028(1), 1) + TSTRING028(2)
TSTRING028(1) = Left(TSTRING028(1), Len(TSTRING028(1)) - 1)
:LABEL025
Dec INTEGER012
AnsiPos INTEGER012, INTEGER008
If (TINTEGER011(2) == 0) TINTEGER011(2) = 1
Goto LABEL016
:LABEL026
If (INTEGER012 > INTEGER007 + INTEGER009 - 1) Goto LABEL016
If (TINTEGER011(2) == 0) Goto LABEL027
TSTRING028(1) = TSTRING028(1) + Left(TSTRING028(2), 1)
TSTRING028(2) = Right(TSTRING028(2), Len(TSTRING028(2)) - 1)
If (TSTRING028(2) == "") TINTEGER011(2) = 0
If (TSTRING028(2) == "") TINTEGER011(1) = 0
If (TSTRING028(2) == "") TSTRING028(2) = TSTRING028(1)
If (TSTRING028(2) == TSTRING028(1)) TSTRING028(1) = ""
Inc INTEGER012
:LABEL027
AnsiPos INTEGER012, INTEGER008
Goto LABEL016
:LABEL028
TINTEGER011(1) = 1
TINTEGER011(2) = 1
INTEGER012 = INTEGER007
TSTRING028(2) = TSTRING028(1) + TSTRING028(2)
TSTRING028(1) = ""
AnsiPos INTEGER007, INTEGER013
Goto LABEL016
:LABEL029
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
INTEGER012 = INTEGER007 + INTEGER014 - 1
TSTRING028(2) = TSTRING028(1) + TSTRING028(2)
TSTRING028(1) = ""
TINTEGER011(2) = 0
TINTEGER011(1) = 0
AnsiPos INTEGER012, INTEGER013
Goto LABEL016
:LABEL030
If (TINTEGER011(1) == 1) Goto LABEL031
If (INTEGER012 < INTEGER007 + 1) Goto LABEL016
TSTRING028(1) = Right(TSTRING028(1), Len(TSTRING028(1)) - 1)
AnsiPos INTEGER012, INTEGER013
Print STRING021
AnsiPos INTEGER012, INTEGER013
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
Goto LABEL032
:LABEL031
If (INTEGER012 < INTEGER007) Goto LABEL016
TSTRING028(2) = Right(TSTRING028(2), Len(TSTRING028(2)) - 1)
AnsiPos INTEGER007, INTEGER013
Print TSTRING028(1) + TSTRING028(2) + STRING021
AnsiPos INTEGER012, INTEGER013
INTEGER014 = Len(TSTRING028(1)) + Len(TSTRING028(2)) + 1
:LABEL032
STRING027 = TSTRING028(1) + TSTRING028(2)
Goto LABEL016
:LABEL033
FUNCTION001 = STRING029
Goto LABEL035
:LABEL034
If (Len(STRING027) < INTEGER010) Goto LABEL016
FUNCTION001 = STRING027
:LABEL035
EndFunc
;------------------------------------------------------------------------------
Procedure PROC001(Integer INTEGER016, Integer INTEGER017, String STRING031, Integer INTEGER018, String STRING032, String STRING033, String STRING034, String STRING035)
Integer INTEGER019
String STRING036
:LABEL036
STRING036 = STRING036 + STRING031
Inc INTEGER019
If (INTEGER019 > INTEGER018) Goto LABEL037
Goto LABEL036
:LABEL037
AnsiPos INTEGER016, INTEGER017
Color STRING033
Print STRING036
Color 8
AnsiPos INTEGER016 - 1, INTEGER017
Print STRING034
Color 7
AnsiPos INTEGER016 + INTEGER018, INTEGER017
Print STRING035
EndProc
;------------------------------------------------------------------------------
Procedure PROC002(Integer INTEGER020, String STRING037, Integer INTEGER021, Integer INTEGER022, String STRING038)
String STRING039
STRING039 = Left(STRING039, INTEGER020)
AnsiPos INTEGER021, INTEGER022
Print STRING039
INTEGER021 = INTEGER021 + INTEGER020 / 2
INTEGER021 = INTEGER021 - Len(STRING037) / 2
AnsiPos INTEGER021, INTEGER022
Color STRING038
Print STRING037
EndProc
;------------------------------------------------------------------------------
Procedure PROC003(String STRING040, Integer INTEGER023, Integer INTEGER024, String STRING041, String STRING042, String STRING043, String STRING044, Integer INTEGER025)
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
STRING040 = " " + STRING040
STRING052 = STRING040
STRING045 = Left(STRING040, INTEGER025)
STRING040 = Right(STRING040, Len(STRING052) - INTEGER025)
STRING046 = Left(STRING040, 1)
STRING040 = Right(STRING040, Len(STRING040) - 1)
STRING047 = Left(STRING040, 1)
STRING040 = Right(STRING040, Len(STRING040) - 1)
STRING048 = Left(STRING040, 1)
STRING040 = Right(STRING040, Len(STRING040) - 1)
STRING049 = Left(STRING040, 1)
STRING040 = Right(STRING040, Len(STRING040) - 1)
STRING050 = Left(STRING040, 1)
STRING040 = Right(STRING040, Len(STRING040) - 1)
STRING051 = STRING040
STRING040 = STRING041 + STRING045 + STRING042 + STRING046 + STRING043 + STRING047 + STRING044 + STRING048 + STRING043 + STRING049 + STRING042 + STRING050 + STRING041 + STRING051
AnsiPos INTEGER023 - 6, INTEGER024
Print STRING040
AnsiPos INTEGER023, INTEGER024
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 32 Color
; 127 Goto
; 164 Let
; 70 Print
; 102 If
; 1 DispFile
; 1 GetUser
; 1 PutUser
; 4 Gosub
; 7 Return
; 6 Delay
; 6 Inc
; 6 Dec
; 72 AnsiPos
; 3 EndProc
; 1 EndFunc
;
;
; ■ Functions used :
;
; 2 /
; 59 +
; 28 -
; 84 ==
; 7 <
; 11 >
; 34 !
; 45 Len(
; 3 Upper()
; 32 Left()
; 18 Right()
; 11 Chr()
; 1 InStr()
; 1 Replace()
; 6 Inkey()
; 1 Mask_Pwd()
; 1 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WH
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 11 If/Then or If/Then/Else
; 5 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------